    Private Function CreateChecksum(ByVal User As String) As Integer
      ' Cel  Ta procedura suy do tworzenia sumy kontrolnej dla hasa.
      '      Jest ona obliczana poprzez sumowanie wartoci numerycznej 
      '      wszystkich znakw w nazwie uytkownika. Przechowywana 
      '      warto jest reszt z dzielenia sumy przez 26.
      '
      ' Lista argumentw:
      '  User     Nazwa uytkownika dla tego hasa 
      '
      ' Warto zwracana:
      '  integer    Suma kontrolna
      '
      Dim i As Integer, sum As Long

      sum = 0
      For i = 0 To Len(User) - 1
        sum += Asc(User.Substring(i, 1))
      Next i
      CreateChecksum = CInt(sum Mod 26)

    End Function
